<?
ini_set('max_execution_time', 120);
$address = (empty($_POST['address']))?'www.':@htmlentities($_POST['address'], ENT_NOQUOTES);
if (isset($_POST['act']) && !empty($_POST['act'])) { $act = $_POST['act']; }

if (isset($_POST['q']) && !empty($_POST['q'])) { 
	$words = explode("\n", $_POST['q']);
	$w_num = count($words);
	$back_words = implode("\n", $words);
	$limit = 100; //iki kiek ieskoti MAX: 1000
}

$text = "
<form method=\"post\" action=\"\">
	<table border=0>
		<tr>
			<td>Puslapio adresas</td>
			<td><input name=\"address\" type=\"text\" size=\"40\" value=" . $address ."></td>
		</tr>
		<tr>
			<td valign=top>Raktiniai žodžiai (stulpeliu)</td>
			<td><textarea name=\"q\" rows=\"7\" style=\"width:100%\">";
			if (!empty($words)) { $text .= $back_words; } 
			$text .= "</textarea></td>
		</tr>
		<tr>
			<td></td>
			<td><input name=\"act\" type=\"submit\" value=\"Pradėti\"></td>
		</tr>
	</table>
</form>
";
lentele("Puslapio duomenys", $text);
unset($text);

if (isset($act) && $act == "Pradėti") {
	$text = "<table width=\"100%\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">";
	//$text .= "<center><CAPTION><b>".$address."</b></CAPTION><br></center><br>";
	$text .= "<tr>
				<th width=\"20%\" class=\"title\">Raktinis žodis</td>
				<th width=\"10%\" align=\"center\" class=\"title\">Vieta</td>
				<th width=\"70%\" class=\"title\">Adresas $address</td>
			  </tr>";

    for ($n=0; $n<$w_num; $n++) {
		$testi = TRUE;
		$offset = 0;
		$place = 1;
		//tikriname tol kol pasiekiame limita arba kol randame.
		while(($offset < $limit) and $testi){
			$line = file_get_contents('http://www.google.lt/search?hl=lt&q=' . urlencode($words[$n]) . '&start='.$offset);
			$line = str_replace('<a class=l href="', "||", $line);
			$line = str_replace('">', "||", $line);
			$lines = explode("||", $line);

			$num = count($lines);
			$repeat = FALSE;
			for ($i=1; $i<=$num; $i++) {
				if (@ereg('^http://', $lines[$i])) {
					if (ereg('^http://([-a-zA-Z0-9_\.])*'.$address, $lines[$i]) or ereg('^http://www.'.$address, $lines[$i])) {
						$testi = FALSE;
						if (!$repeat) {
						    $text .= '
						    <tr>
								<td width="20%" class="sarasas">'.$words[$n].'</td>
								<td width="10%" class="sarasas" align="center">'.$place.'</td>
								<td width="70%" class="sarasas">'.$lines[$i].'</td>
							</tr>';
						}
						$repeat = TRUE;
					}
					$place++;
				}
			}
			$offset += 10;
			if (($offset == $limit) and $testi) {
				$text .= '
				<tr>
					<td width="200" class="sarasas">'.$words[$n].'</td>
					<td width="70" align="center" class="sarasas">-</td>
					<td width="500" class="sarasas">-</td>
				</tr>';
			}
		} // while

	}
	$text.= '</table>';
}
else {
	$text = "
		<div align=\"justify\">Norint sužinoti savo puslapio retingą Google sistemoje reikia įvesti savo puslpį bei
		raktažodžius į atitinkamus laukelius. Raktažodžiai reikalingi kad būtų galima sužinoti
		pagal kokius raktažodžius jūsų puslapio paieškos sistema ieškos. Įvedę jums reikalingus
		raktažodžius paspauskite \"Pradėti\". Priklausomai nuo raktažodžių kiekio priklausys ir
		rezultatų išvedimo laikas. Jei raktažodžių kiekis lygus 100, teks palaukti ne vieną minutę.
		Rezultatai išvedami tokia eiga: Raktažodis | Vieta | Puslapis. Maksimalus raktažodžių paieškos
		intervalas nuo 1 iki 100. Jeigu jūsų ieškoma raktažodis bus 101 jums bus išvestas brukšnelis
		vietoj rezultato. Nustatyta paieškos užklausos trukmė 120 sekundžių. Jei per šį laiką
		paieška neduoda atsakymo, traktuojama kaip atsijungimą ir užbaigiamas projektas.</div> <br>
		<br>
		<b>Sėkmės bandant savo svetaines</b>
	";
	msg("Informacija",$text);
	unset($text);
}
if (isset($text) && !empty($text)) { lentele("Puslapio Reitingas Google Paieškos Sistemoje", $text); }
echo "<div class=\"comment\">Powered By NightVision System ™</div>";
?>